home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act3 / 00059.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  707 b   |  29 lines
  1. on exitFrame
  2.   global keyout, ogre
  3.   set keyout to 0
  4.   puppetSprite(35, 1)
  5.   set the locH of sprite 35 to (760 * (random(2) - 1)) - 50
  6.   set the locV of sprite 35 to (580 * (random(2) - 1)) - 50
  7.   if random(2) = 1 then
  8.     set the locH of sprite 35 to random(640)
  9.   else
  10.     set the locV of sprite 35 to random(480)
  11.   end if
  12.   defbuggy()
  13.   flapto(ogre, 250, 100, 120, 5)
  14.   repeat with xxx = 1 to 6
  15.     talkyou("bug3." & xxx)
  16.     if the mouseDown then
  17.       exit
  18.     end if
  19.   end repeat
  20.   set newx to (760 * (random(2) - 1)) - 50
  21.   set newy to (580 * (random(2) - 1)) - 50
  22.   if random(2) = 1 then
  23.     set newx to random(640)
  24.   else
  25.     set newy to random(480)
  26.   end if
  27.   flapto(ogre, newx, newy, 120, 5)
  28. end
  29.